%Wypisuje korelacje miedzy patentami a wydatkami

pat = PAT(1:end-1,2);
wyd = WYD(:,2);

disp('Korelacja pomiedzy patentami a wydatkami');
for i = 0:7
    [kor p] = KorelacjaPrzes(pat, wyd, i);
    disp(['Opoznienie ' num2str(i) ': ' num2str(kor) ', t-Student alfa = ' num2str(p)]);
end
disp(sprintf('\n\n'));

clear pat wyd i kor p;